open Printf
open Common
open Projects

(* Globals *)
let moviesCollection = new MCol.moviesCollection ()
  (* Globals end *)

let create_add_movie_function srcDlg destMovieColl =
  fun () -> 
	srcDlg#create();
	match srcDlg#setup_new_movie() with
	  | Some(m) -> destMovieColl#add_movie m
	  | _ -> ()

let _ =
  let wnd = new MainWindow.mainWindow () in
	wnd#attach_catalog (Some(moviesCollection));
	wnd#run()
